﻿''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Codigo de proyecto: 306 F
' Nombre proyecto: Framework Web LNK
' Nombre del módulo: Abm Reportes
' Tarea/s relacionada/s: Paginas Estandar
' Fecha creacion: 11/06/2010
' Autor/es original/es: Sebastian Wright 
' Fecha modificacion: No Aplica
' Autor modificacion: No Aplica
' R02 relacionados: 08
' R03 relacionados: No Aplica
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports StartFrame.BR.Web.Utilitarios

Partial Public Class Abm_Reportes
    Inherits System.Web.UI.Page

    Public masterpage As AbmBase

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim obr As New BR.WEb.Utilitarios.Abms.Reportes

        'Campos de filtrado
        Dim cf As String = "nm_programa, nm_reporte, nm_origen_datos"
        'Columnas de grilla
        Dim cg As String = "nm_programa, nm_reporte, nm_origen_datos, de_reporte, ca_timeout"

        Dim ac As New Hashtable

        ac.Add("nm_programa", "Programa")
        ac.Add("nm_reporte", "Reporte")
        ac.Add("nm_origen_datos", "Origen de datos")
        ac.Add("de_reporte", "Descripción")
        ac.Add("ca_timeout", "Timeout")

        'Instancia iniciada de la clase de masterpage
        MasterPage = CType(Page.Master, AbmBase)

        MasterPage.lblTitulo = "Abm de Reportes"

        MasterPage.FiltrosBusqueda = cf
        MasterPage.ColumnasGrilla = cg
        MasterPage.AliasCampos = ac
        masterpage.InicializarPagina(obr)

        'Captura del evento Actualizando y asignacion de handler al metodo Validaciones
        AddHandler masterpage.Actualizando, AddressOf Validaciones

        'Enlace de eventos Javascript
        ca_timeout.Attributes.Add("OnBlur", "return val_ca_timeout('" & ca_timeout.ClientID & "','" & lbl_val_ca_timeout.ClientID & "');")

        If Not Page.IsPostBack Then
            'Carga del combo
            comboNm_programa()
        End If

    End Sub

    Private Sub Abm_Reportes_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If
    End Sub

    'Metodo al cual se le asignara el evento Actualizando
    Private Sub Validaciones(ByRef cancela As Boolean)

    End Sub


#Region "Metodos Privados"

    'Carga del combo nm_campo_tabla.
    Private Sub comboNm_programa()
        Dim ds As New DataSet

        ds = StartFrame.DA.Sql.Select(ConnectionString, "*", "wad_programas")

        nm_programa.Items.Clear()
        For Each est In ds.Tables(0).Rows
            Dim item As New ListItem
            item.Value = est(0)
            item.Text = est(0)
            nm_programa.Items.Add(item)
        Next

    End Sub

#End Region

End Class